home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / eflibpt4.zip / DEMO / SCREEN / VIRTDELT.PAS < prev    next >
Pascal/Delphi Source File  |  1996-08-02  |  937b  |  29 lines
  1. { Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
  2.   Demonstration; virtual screen restore with delta technique
  3.  
  4.   EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
  5.   MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
  6.   ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED.                          }
  7.  
  8.  
  9. uses EFLIBDEF, EFLIBSCR, CRT;
  10.  
  11. var Delta : VirtualScreenObjectType;
  12.  
  13.  
  14. begin
  15.      Screen.Draw;
  16.  
  17.      with Delta do begin
  18.           { Initialize virtual screen and fill it with red characters }
  19.           InitializeCopy;
  20.           Fill (#219, Red);
  21.  
  22.           { Restore region of virtual screen but exclude the specified
  23.             field from the restoration using the delta technique. }
  24.           DeltaRestoreArea (1, 1, 80, 25,  { Restore region }
  25.                             2, 2, 78, 20); { Explode region }
  26.  
  27.           Intercept;
  28.      end;
  29. end.